50 REM THIS VERSION HAS BEEN CRUNCHED SO THAT ALL REM STATEMENTS HAVE BEEN REMOVED AND LINES CONSOLIDATED. SEE THE FILE, 'UNCRUNCHED' FOR THE ORIGINAL VERSION.
100 HIMEM: 37120:ST$ = "": LET D$ = CHR$(4): PRINT D$;"BLOAD KEYIN,A$95D0": LET MACHID = PEEK(49048): IF MACHID = 186 THEN ID = 1: REM
110 IF MACHID <128 THEN 2510: REM
120 LET MACHID = MACHID -128: IF MACHID -128 > = 64 THEN 2510: REM
130 LET MACHID = MACHID -32: IF MACHID >16 THEN MEM = 1: REM
140 IF MACHID <2 THEN 2510: REM
150 IF ID < >1 AND MEM < >1 THEN LIMIT = 150: LET LSTRING = 8000: GOTO 400: REM
160 LIMIT = 245: LET LSTRING = 7000: GOTO 400: REM
170 INVERSE : PRINT " ";: NORMAL : PRINT CHR$(8);
180 ONERR GOTO 2530: REM
190 IF PEEK(49152) <128 THEN 190
200 POKE 216,0: RETURN
210 FOR I = 1 TO CT: VTAB 12: HTAB 27: PRINT "Analyzing Line ";I;" of ";CT;" lines.": LET LA = 1: IF LEN(ST$(I)) <8 THEN 300
220 FOR B = LEN(ST$(I)) TO 1 STEP -1: IF MID$ (ST$(I),B,6) < >"[MERGE" THEN GOTO 290
230 LET LC = VAL( MID$ (ST$(I),B +6,2)): LET PL = 7: IF LC = 0 THEN 270
240 IF LC >9 THEN PL = PL +1
250 IF LC >30 THEN 270
260 IF MID$ (ST$(I),B +PL,1) = "*" OR MID$ (ST$(I),B +PL,1) = "]" THEN 280
270 PRINT D$;"CLOSE": GOTO 2490
280 LET D(I,LA) = B: LET LA = LA +1: IF LA >7 THEN PRINT D$;"CLOSE": GOTO 2480
290 NEXT B
300 LET D(I,LA) = 0: NEXT I: RETURN
310 LET LC = VAL( MID$ (ST$(I),B +6,2)):PL = 9: IF LC >9 THEN PL = PL +1
320 IF MID$ (ST$(I),B +(PL -2),1) < >"*" THEN 360
330 LET PL = PL +1: IF L$(LC) < >"" THEN 360
340 LET ST$(I) = CHR$(147): REM
350 RETURN
360 IF B = 1 THEN LET ST$(I) = L$(LC) + MID$ (ST$(I),PL): GOTO 390
370 IF MID$ (ST$(I),B +(PL -1),1) = "" THEN LET ST$(I) = LEFT$(ST$(I),B -1) +L$(LC): RETURN
440 IF PEEK(222) = 5 OR PEEK(222) = 0 THEN GOTO 460
450 PRINT D$;"CLOSE": GOTO 2430
460 PRINT D$;"CLOSE CONFIG": PRINT D$;"PREFIX": INPUT PR$: POKE 216,0: TEXT : HOME : LET TITLE$ = "AppleWorks Mailing Program": IF ID = 1 THEN DISK$ = "Data Disk: External"
470 VTAB 1: HTAB 2: PRINT "Version 1.1": VTAB 1: POKE 36,64: PRINT "October 23, 1984": VTAB 1: HTAB 26: PRINT TITLE$: VTAB 2: HTAB 2: FOR I = 1 TO 79: PRINT "_";: NEXT I: VTAB 23: HTAB 2: FOR I = 1 TO 79: PRINT "_";: NEXT I
480 POKE 34,3: POKE 35,22: POKE 33,60: POKE 32,12: HOME : PRINT : PRINT "This program allows you to automatically merge data": PRINT "created using the AppleWorks Data Base into a master": PRINT "document created using the AppleWorks Word Processor."
490 PRINT : PRINT "For example, you can merge a name and address file": PRINT "into a form letter to produce customized letters with": PRINT "just a few keystrokes.": PRINT : PRINT "The instructions are contained in four AppleWorks Word"
500 PRINT "Processor files on this disk. If you have not done so": PRINT "already, start up AppleWorks now and read the instructions.": PRINT "Since they are several pages long, you may want to print": PRINT "them out for reference.": PRINT
510 POKE 33,80: POKE 32,0: VTAB 22: POKE 36,45: PRINT "Copyright Apple Computer, Inc 1984";: HTAB 2: VTAB 24: PRINT "Press any key to continue ";: GOSUB 170: POKE 49168,0
520 HOME : GOSUB 530: GOTO 540
530 VTAB 1: HTAB 2: PRINT DISK$;: VTAB 1: HTAB 26: PRINT TITLE$: VTAB 2: HTAB 2: FOR ZZ = 1 TO 79: PRINT "_";: NEXT ZZ: VTAB 23: HTAB 2: FOR ZZ = 1 TO 79: PRINT "_";: NEXT ZZ: RETURN
540 POKE 34,23: HOME : POKE 34,3: POKE 35,22: VTAB 1: POKE 36,52: FOR I = 1 TO 28: PRINT " ";: NEXT I: VTAB 1: POKE 36,68: PRINT "Escape: Quit": GOSUB 550: GOSUB 560: GOSUB 570: GOSUB 590: GOSUB 600: GOSUB 620: GOSUB 630: INVERSE : ON PT GOSUB 570,600,630: NORMAL : GOTO 640
550 VTAB 10: HTAB 28: PRINT "Location of Data Disk:": RETURN
560 VTAB 12: HTAB 28: PRINT "1. ";: RETURN
570 IF ID = 1 THEN VTAB 12: HTAB 31: PRINT "Internal Drive": RETURN
580 VTAB 12: HTAB 31: PRINT "Drive 1": RETURN
590 VTAB 14: HTAB 28:: PRINT "2. ";: RETURN
600 IF ID = 1 THEN VTAB 14: HTAB 31: PRINT "External Drive": RETURN
610 VTAB 14: HTAB 31: PRINT "Drive 2": RETURN
620 VTAB 16: HTAB 28: PRINT "3. ";: RETURN
630 VTAB 16: HTAB 31: PRINT "Pathname": RETURN
640 HTAB 2: VTAB 24: PRINT "Type number, or use arrows, then press Return (Press 'P' for Printer Setup) ";PT;: GOSUB 170: GOTO 650
650 IF PEEK(49152) = 155 THEN 2550
660 GET IN$: IF IN$ = "P" OR IN$ = "p" THEN GOSUB 1870: GOTO 520
670 IF ASC(IN$) >48 AND ASC(IN$) <52 THEN ON PT GOSUB 570,600,630: LET PT = VAL(IN$): GOTO 710
680 IF IN$ = CHR$(13) THEN 720
690 IF IN$ = CHR$(10) THEN ON PT GOSUB 570,600,630: LET PT = PT +1: IF PT = 4 THEN PT = 1
700 IF IN$ = CHR$(11) THEN ON PT GOSUB 570,600,630: LET PT = PT -1: IF PT = 0 THEN PT = 3
710 INVERSE : ON PT GOSUB 570,600,630: NORMAL : GOTO 640
720 IF PT = 3 THEN 820
730 VTAB 1: POKE 36,63: PRINT "Escape: Main Menu": IF PT = 3 THEN 820
740 IF ID = 0 THEN DS$ = "Disk " + STR$(PT) +" ": GOTO 770
750 IF PT = 1 THEN DS$ = "Internal"
760 IF PT = 2 THEN DS$ = "External"
770 LET DISK$ = "Data Disk: " +DS$: HTAB 10: VTAB 20: PRINT "Place your Data Disk in ";: IF ID = 1 THEN PRINT "the ";DS$;" Drive";
780 IF ID = 0 THEN PRINT "Drive ";PT;
790 PRINT " and shut the door.": POKE 34,23: HOME : POKE 34,3: HTAB 2: VTAB 24: PRINT "Press any key to continue ";: GOSUB 180: IF PEEK(49152) = 155 THEN POKE 49168,0: GOTO 520
800 POKE 49168,0: ONERR GOTO 2300
810 VTAB 1: HTAB 2: PRINT DISK$;: FOR I = 1 TO 5: PRINT " ";: NEXT I: PRINT TITLE$;: PRINT D$;"PREFIX ,S6,D";PT: PRINT D$;"PREFIX": INPUT PH$: POKE 216,0: GOTO 1000
820 VTAB 16: HTAB 40: FOR I = 1 TO 40: PRINT ".";: NEXT I: POKE 34,23: HOME : POKE 34,3: VTAB 24: HTAB 2: PRINT "Enter the pathname of your data disk";: VTAB 1: POKE 36,63: PRINT "Escape: Main Menu": VTAB 16: HTAB 40: IF PH$ < >"" THEN PRINT PH$;
830 GOSUB 170
840 IF PEEK(49152) = 155 THEN POKE 49168,0: GOTO 520
850 GET TM$: IF ASC(TM$) <27 AND TM$ < > CHR$(8) AND TM$ < > CHR$(13) THEN GOSUB 180: GOTO 840
860 IF TM$ = CHR$(127) OR TM$ = CHR$(8) THEN 880
870 GOTO 910
880 IF LEN(PH$) = 0 THEN GOSUB 180: GOTO 840
890 IF LEN(PH$) = 1 THEN LET PH$ = "": PRINT CHR$(8);" "; CHR$(8); CHR$(8);: GOTO 830
920 IF LEN(PH$) >39 THEN LET PH$ = LEFT$(PH$, LEN(PH$) -1):: GOTO 830
930 IF TM$ = CHR$(13) THEN 950
940 PRINT TM$;: GOTO 830
950 IF PH$ = "" THEN 830
960 IF LEFT$(PH$,1) < >"/" THEN LET PH$ = "/" +PH$
970 IF RIGHT$(PH$,1) < >"/" THEN LET PH$ = PH$ +"/"
980 ONERR GOTO 2320
990 LET DISK$ = "Pathname: " + LEFT$(PH$,12): VTAB 1: HTAB 2: PRINT DISK$;: FOR I = 1 TO 24 - LEN(DISK$): PRINT " ";: NEXT I: PRINT TITLE$;: PRINT D$;"PREFIX ";PH$: POKE 216,0: GOTO 1000
1000 POKE 34,23: HOME : POKE 34,3: HOME : LET TM$ = "": LET R$ = "": LET LT = 0: VTAB 10: HTAB 10: PRINT "Name of Word Processor File: ";: IF WP$ < >"" THEN PRINT WP$
1010 PRINT : VTAB 1: POKE 36,63: PRINT "Escape: Main Menu": VTAB 24: HTAB 2: PRINT "Enter name of Word Processor File: ";: IF WP$ < >"" THEN PRINT WP$;
1020 GOSUB 170
1030 IF PEEK(49152) = 155 THEN POKE 49168,0: GOTO 520
1040 GET TM$: IF ASC(TM$) <27 AND TM$ < > CHR$(8) AND TM$ < > CHR$(13) THEN GOSUB 180: GOTO 1030
1050 IF TM$ = CHR$(127) OR TM$ = CHR$(8) THEN 1070
1060 GOTO 1100
1070 IF LEN(WP$) = 0 THEN GOSUB 180: GOTO 1030
1080 IF LEN(WP$) = 1 THEN LET WP$ = "": PRINT CHR$(8);" "; CHR$(8); CHR$(8);: GOTO 1020
1110 IF LEN(WP$) >40 THEN LET WP$ = LEFT$(WP$, LEN(WP$) -1):: GOTO 1020
1120 IF TM$ = CHR$(13) THEN 1140
1130 PRINT TM$;: GOTO 1020
1140 IF WP$ = "" THEN 1020
1150 VTAB 10: HTAB 39: PRINT WP$;: FOR I = 1 TO 40 - LEN(WP$): PRINT " ";: NEXT I: PRINT
1160 POKE 34,23: HOME : POKE 34,11: HOME : VTAB 12: HTAB 10: PRINT "Name of Data Base File: ";: IF DB$ < >"" THEN PRINT DB$
1170 PRINT : VTAB 1: POKE 36,53: PRINT "Escape: Word Processor File": VTAB 24: HTAB 2: PRINT "Enter name of Data Base File: ";: IF DB$ < >"" THEN PRINT DB$;
1180 GOSUB 170
1190 IF PEEK(49152) = 155 THEN POKE 49168,0: VTAB 1: POKE 36,53: PRINT " ": GOTO 1000
1200 GET TM$: IF ASC(TM$) <27 AND TM$ < > CHR$(8) AND TM$ < > CHR$(13) THEN GOSUB 180: GOTO 1190
1210 IF TM$ = CHR$(127) OR TM$ = CHR$(8) THEN 1230
1220 GOTO 1260
1230 IF LEN(DB$) = 0 THEN GOSUB 180: GOTO 1190
1240 IF LEN(DB$) = 1 THEN LET DB$ = "": PRINT CHR$(8);" "; CHR$(8); CHR$(8);: GOTO 1180
1270 IF LEN(DB$) >40 THEN LET DB$ = LEFT$(DB$, LEN(DB$) -1):: GOTO 1180
1280 IF TM$ = CHR$(13) THEN 1300
1290 PRINT TM$;: GOTO 1180
1300 IF DB$ = "" THEN 1180
1310 VTAB 12: HTAB 34: PRINT DB$;: FOR I = 1 TO 40 - LEN(DB$): PRINT " ";: NEXT I: PRINT
1320 POKE 34,23: HOME : POKE 34,3: VTAB 14: HTAB 10: PRINT "Number of categories in each label: ": VTAB 1: POKE 36,53: PRINT " ": VTAB 1: POKE 36,58: PRINT "Escape: Data Base File": VTAB 24: HTAB 2: PRINT "Enter the number of categories in each label: ";
1330 GOSUB 170
1340 IF PEEK(49152) = 155 THEN POKE 49168,0: GOTO 1160
1350 GET TM$: IF ASC(TM$) >47 AND ASC(TM$) <58 OR TM$ = CHR$(8) OR TM$ = CHR$(13) THEN 1370
1360 GOSUB 180: GOTO 1340
1370 IF TM$ = CHR$(13) AND R$ < >"" THEN 1440
1380 IF TM$ = CHR$(13) THEN 1330
1390 IF TM$ = CHR$(8) AND LEN(R$) = 0 THEN GOSUB 180: GOTO 1340
1400 IF TM$ = CHR$(8) AND LEN(R$) = 1 THEN LET R$ = "": PRINT CHR$(8);" "; CHR$(8); CHR$(8);: GOTO 1330
1410 IF TM$ = CHR$(8) THEN LET R$ = LEFT$(R$, LEN(R$) -1): PRINT CHR$(8);" "; CHR$(8); CHR$(8);: GOTO 1330
1420 LET R$ = R$ +TM$: IF LEN(R$) >2 THEN LET R$ = LEFT$(R$, LEN(R$) -1):: GOTO 1330
1430 PRINT TM$;: GOTO 1330
1440 LET R = VAL(R$): IF R = 0 THEN R$ = "": GOTO 1320
1450 VTAB 14: POKE 36,46: PRINT R;" ": IF R >30 THEN 2460
1490 IF ST$ < >"" THEN FOR I = 1 TO CT: LET ST$(I) = "": NEXT I
1500 LET I = 1: PRINT D$;"READ ";PH$;WP$
1510 CALL 38352:ST$ = MID$ (ST$,1):ST$(I) = ST$: PRINT ".";: LET I = I +1: IF I = LIMIT THEN PRINT D$;"CLOSE": GOTO 2440
1520 LET LGTH = LGTH + LEN(ST$): IF LGTH >LSTRING THEN PRINT D$;"CLOSE": GOTO 2470
1530 IF LEN(ST$) >237 THEN ER = 1: REM
1540 GOTO 1510
1550 POKE 216,0: IF PEEK(222) = 16 THEN 2350
1560 IF PEEK(222) = 13 THEN GOTO 2410
1570 IF PEEK(222) = 6 THEN GOTO 2360
1580 IF PEEK(222) = 77 THEN FOR M = 1 TO I: LET ST$(M) = "": NEXT M: PRINT D$;"CLOSE": GOTO 2470
1590 IF PEEK(222) < >5 THEN 2430
1600 CT = I -1: PRINT D$;"CLOSE ";PH$;WP$: IF ER = 1 THEN GOSUB 2500
1610 IF ID = 1 OR MEM = 1 THEN PRINT D$;"CLOSE ";PH$;DB$: PRINT D$;"OPEN /RAM/TEMP": PRINT D$;"WRITE /RAM/TEMP": FOR I = 1 TO CT: PRINT ST$(I): NEXT I: PRINT D$;"CLOSE /RAM/TEMP": PRINT D$;"OPEN ";PH$;DB$: GOTO 1630
1620 FOR I = 1 TO CT: LET TM$(I) = ST$(I): NEXT I
1630 REM
1640 POKE 34,3: POKE 35,22: HOME : GOSUB 210: HOME : ONERR GOTO 1810
1650 VTAB 12: HTAB 5: PRINT "Make sure your printer is ready to print, then press any key to continue. ";: GET ZZ$: HOME
1660 LET LT = LT +1: VTAB 5: HTAB 32: PRINT "Creating Letter ";LT: VTAB 1: POKE 36,58: PRINT "Escape: Stop Printing";: PRINT D$;"READ ";PH$;DB$: FOR M = 1 TO R: CALL 38352:ST$ = MID$ (ST$,1):L$(M) = ST$: NEXT M: FOR I = 1 TO CT: LET LA = 1: VTAB 12: HTAB 27: PRINT "Merging Line ";I;" of ";CT;" lines.": IF PEEK(49152) <128 THEN 1680
1670 IF PEEK(49152) = 155 THEN POKE 49168,0: PRINT D$;"CLOSE ";PH$;DB$: POKE 216,0: GOTO 520
1680 IF D(I,LA) = 0 THEN 1700
1690 LET B = D(I,LA): GOSUB 310: LET LA = LA +1: GOTO 1680
1700 NEXT I: POKE 49168,0: VTAB 15: HTAB 31: PRINT "Printing Letter ";LT: PRINT D$;"PR#";SLOT
1705 PRINT CHR$(9);"80N";
1708 IF ID = 1 THEN PRINT CHR$(9);"Z";
1710 FOR I = 1 TO CT: IF ST$(I) = CHR$(147) THEN GOTO 1790
1720 IF LEFT$(ST$(I),1) = CHR$(12) AND SP = 1 THEN PRINT CHR$(12);: GOTO 1760
1730 IF I = CT THEN PRINT ST$(I);: GOTO 1790
1740 PRINT ST$(I): IF LF = 1 THEN PRINT CHR$(10)
1750 GOTO 1790
1760 PRINT D$;"PR#3": GOSUB 530: VTAB 1: POKE 36,58: PRINT "Escape: Stop Printing": VTAB 12: HTAB 8: PRINT "Remove sheet of paper from printer and replace with another one.": VTAB 24: PRINT "Press any key to continue. ";: GOSUB 170: POKE 34,23: HOME : POKE 34,3: ONERR GOTO 1810
1770 IF PEEK(49152) = 155 THEN POKE 49168,0: PRINT D$;"CLOSE ";PH$;DB$: POKE 216,0: GOTO 520
1780 POKE 49168,0: PRINT D$;"PR#";SLOT: PRINT CHR$(9);"80N";: IF LEN(ST$(I)) >1 THEN LET ST$(I) = MID$ (ST$(I),2): GOTO 1730
1790 NEXT I: PRINT D$;"PR#3": PRINT : GOSUB 530: IF ID = 1 OR MEM = 1 THEN PRINT D$;"OPEN /RAM/TEMP": PRINT D$;"READ /RAM/TEMP": FOR I = 1 TO CT: CALL 38352:ST$ = MID$ (ST$,1):ST$(I) = ST$: NEXT I: PRINT D$;"CLOSE /RAM/TEMP": GOTO 1660
1800 FOR I = 1 TO CT: LET ST$(I) = TM$(I): NEXT I: GOTO 1660
1810 POKE 216,0: IF PEEK(222) = 16 THEN PRINT D$;"CLOSE": GOTO 2370
1820 IF PEEK(222) = 6 THEN PRINT D$;"CLOSE": GOTO 2380
1830 IF PEEK(222) = 13 THEN PRINT D$;"CLOSE": GOTO 2420
1840 IF PEEK(222) < >5 THEN GOTO 2430
1850 POKE 216,0: PRINT D$;"CLOSE ";PH$;DB$: IF M = 1 THEN 520
2040 IF ID = 1 THEN PRINT "Enter the port number your printer is connected to: ";: GOTO 2060
2050 PRINT "Enter the slot number your printer is connected to: ";
2060 GOSUB 170: IF PEEK(49152) = 155 THEN POKE 49168,0: GOTO 1960
2070 GET TM$: IF ID = 1 AND ASC(TM$) >48 AND ASC(TM$) <51 AND TM$ < >"3" THEN PRINT TM$;: LET SLOT = VAL(TM$): VTAB 12: POKE 36,65: PRINT SLOT: GOTO 1960
2080 IF ASC(TM$) >48 AND ASC(TM$) <56 AND TM$ < >"3" THEN PRINT TM$;: LET SLOT = VAL(TM$): VTAB 12: POKE 36,65: PRINT SLOT: GOTO 1960
2310 HOME : VTAB 10: HTAB 15: PRINT "Cannot read the disk. Make sure a disk is in the drive": HTAB 15: PRINT "and the drive door is closed. Press any key to continue ";: GET ZZ$: HOME : GOTO 540
2320 POKE 216,0: HOME : VTAB 10: HTAB 15: IF PEEK(222) = 16 THEN PRINT "Illegal pathname. Try again. Press any key to continue ";: GET ZZ$: HOME : VTAB 1: POKE 36,63: PRINT " ": GOTO 540
2330 IF PEEK(222) = 6 THEN PRINT "Cannot find disk with appropriate pathname.": HTAB 15: PRINT "Try again. Press any key to continue ";: GET ZZ$: HOME : VTAB 1: POKE 36,63: PRINT " ": GOTO 540
2340 POKE 216,0: GOTO 2430
2350 HOME : VTAB 18: HTAB 10: PRINT "The Word Processor filename, '";WP$;"'": HTAB 10: PRINT "is an illegal filename.": HTAB 10: PRINT "Try again by pressing any key to continue ";: GET ZZ$: HOME : GOTO 1000
2360 HOME : VTAB 18: HTAB 10: PRINT "Cannot find the Word Processor file '";WP$;: PRINT "'.": HTAB 10: PRINT "Try again by pressing any key to continue ";: GET ZZ$: HOME : GOTO 1000
2370 HOME : VTAB 20: HTAB 10: PRINT "The Data Base filename, '";DB$;"'": HTAB 10: PRINT "is an illegal filename.": HTAB 10: PRINT "Try again by pressing any key to continue ";: GET ZZ$: HOME : GOTO 1000
2380 VTAB 20: HTAB 10: PRINT "Cannot find the Data Base file '";DB$;"'.": HTAB 10: PRINT "Try again by pressing any key ";: GET ZZ$: GOTO 1000
2390 VTAB 20: HTAB 2: PRINT "There were more or fewer categories in the Data Base than you specified.": HTAB 2: PRINT "The merged words in your printout may be inacurate. Check your Data Base to"
2400 HTAB 2: PRINT "determine the correct number of categories. Press any key to continue";: GET ZZ$: GOTO 520
2410 HOME : VTAB 18: HTAB 10: PRINT "The file '";WP$;"' is not an ASCII file.": GOTO 2450
2420 HOME : VTAB 18: HTAB 10: PRINT "The file '";DB$;"' is not an ASCII file.": GOTO 2450
2430 IF PEEK(222) = 4 THEN TEXT : HOME : VTAB 12: PRINT "Your disk is write protected. Make sure you have made a copy": PRINT "of the master disk and the write protect tab is removed.": END
2432 IF PEEK(222) = 3 THEN TEXT : HOME : VTAB 12: PRINT "No device is connected to the specified slot and drive. This": PRINT "program assumes the disk controller card is in slot 6.": END
2434 IF PEEK(222) = 8 THEN TEXT : HOME : VTAB 12: PRINT "An I/O error occurred.": END
2439 TEXT : HOME : PRINT "An unexpected error "; PEEK(222);" occurred.": END
2440 HOME : VTAB 18: HTAB 10: PRINT "There are more than ";LIMIT;" lines in your document. Merge only that": HTAB 10: PRINT "portion of the document that needs to be merged,": HTAB 10: PRINT "or split your document in two."
2450 HTAB 10: PRINT "Press any key to continue. ";: GET ZZ$: TEXT : GOTO 520
2460 VTAB 18: HTAB 10: PRINT "A maximum of 30 MERGE identifiers may be specified.": HTAB 10: PRINT "Press any key to continue. ";: GET ZZ$: LET R$ = "": GOTO 1320
2470 HOME : VTAB 18: HTAB 10: PRINT "Your Word Processor File is too big. Merge only that portion": HTAB 10: PRINT "of the document that needs to be merged, or split your document in two.": GOTO 2450
2480 HOME : VTAB 12: HTAB 10: PRINT "Your Word Processor File has over 6 labels in line ";I;".": GOTO 2450
2490 VTAB 18: HTAB 10: PRINT "'[MERGE#]' in your Word Processor file is not": HTAB 10: PRINT "in the correct format.": PRINT : GOTO 2450
2500 HOME : VTAB 18: HTAB 10: PRINT "One of the lines in your Word Processor file may be too long": HTAB 10: PRINT "for AppleWorks Mailing Program. See your AMP manual for details.": HTAB 10: PRINT "Press any key to continue ";: GET ZZ$: RETURN
2510 HOME : VTAB 12: PRINT "This program runs only on an Apple IIc": PRINT "or an Apple IIe with an 80-column card.": END
2520 VTAB 12: PRINT "Please make sure your program disk is in one of the drives.": PRINT "Press any key to continue ";: GET ZZ$: GOTO 2550